home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / programmierung / amosintros / aaintro4.amos / aaintro4.amosSourceCode next >
AMOS Source Code  |  1996-08-01  |  2KB  |  66 lines
  1. Rem (C)96MNT/FREEWARE! 
  2.  
  3. Rem a very old intro from my brother.
  4. Rem feel free to change! 
  5.  
  6.  
  7.  
  8.  
  9. RemAmos To Front : Amos Lock : Break Off : R=Execall(-132) 
  10. Screen Open 0,320,43,16,0 : Curs Off : Cls 0 : Hide : Flash Off 
  11. Palette 0,0,$F,$D,$B,$9,$7,$5,0,0,$A,$9,$7,$5,$3,$1
  12. Paste Bob 40,0,1 : Screen Display 0,128,45,, : _BPL=Phybase(3)
  13. Screen Open 1,640,70,4,Hires : Curs Off : Cls 0 : Hide : Flash Off 
  14.  
  15. CHAR$="_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ .,'!?()/"
  16. Screen Display 1,128,120,, : Y=7 : _AD=Start(11)
  17. Shared _BPL,_AD
  18. Set Rainbow 0,0,72,"(1,1,5)(60,0,1)(1,-1,5)","(1,1,5)(60,0,1)(1,-1,5)","(1,2,1)(1,1,4)(60,0,1)(1,-1,5)"
  19. Rainbow 0,0,120,170 : Palette 0,$778,$FFF,$556
  20.  
  21. Channel 2 To Screen Display 0 : Amal 2,"L: LY=70;P;LY=68;P;LY=65;P;LY=62;P;LY=60;P;LY=58;P;LY=57;P;LY=56;P;LY=56;P;LY=56;P;LY=57;P;LY=58;P;LY=60;P;LY=63;P;LY=65;P;LY=68;P;JL;E;"
  22.  
  23.  
  24.  
  25. Amal On 
  26.  
  27. RemTRACK Play 6 : Track Loop On  
  28. Do : Read A$ : If A$="@" Then Restore : Read A$
  29.    
  30.    If A$="$"
  31.       Fade 2,0,$FFF,$FFF : Proc _W[32]
  32.       Fade 2,0,$556,$556 : Proc _W[32]
  33.       Cls 0 : Palette 0,$778,$FFF : Y=-1 : X=0
  34.    End If 
  35.    
  36.    If Mid$(A$,1,1)="#"
  37.       A$=Right$(A$,Len(A$)-1) : X=320-(Len(A$)*9)/2
  38.    End If 
  39.    
  40.    For I=1 To Len(A$) : Trap Paste Bob X,Y,Instr(CHAR$,Mid$(A$,I,1)) : Add X,9
  41.    Proc _W[2] : Next I : X=0 : Add Y,8
  42. Loop 
  43.  
  44.  
  45.  
  46.  
  47. Data "MARFEL HACKER PRESENTS ANOTHER TYPE OF INTRO...."
  48. Data ""
  49. Data "BE HAPPY AND COPY IT!"
  50. Data "FONT RIPPED FROM PARANOIMIA INTRO...."
  51. Data "MUSIC BY UNKOWN!@"
  52. Data ""
  53. Data "#THIS ONE IS CENTERED!"
  54. Data ""
  55. Data "P.S. THE STENCILLOGO IS A SIMPLE BITPLANE HACK!"
  56. Data "$"
  57. Data "@"
  58.  
  59. Procedure _W[W]
  60.    For J=1 To W : _RND=Rnd(280) : Copy _AD+_RND,_AD+_RND+1715 To _BPL : Wait Vbl : Led Off : Next J
  61.    If Btst(6,$BFE001)=False
  62.       Track Stop : Screen Hide 1 : Screen Hide 0 : Rainbow Del 
  63.       Screen Close 0 : Screen Close 1
  64.       RemR=Execall(-138):      Amos Unlock : Break On : Edit 
  65.    End If 
  66. End Proc